home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / prog / dnalib59.arj / LASER.BAS < prev    next >
BASIC Source File  |  1994-01-17  |  1KB  |  69 lines
  1. DECLARE SUB DoHeader()
  2.  
  3. LinesPerPage% = 42: True% = 1: False% = 0: FirstTime% = True%
  4.  
  5. LPRINT CHR$(27); "&l1O";
  6. LPRINT CHR$(27); "(s0T";
  7. LPRINT CHR$(27); "&k2S";
  8. LPRINT CHR$(27); "(11U";
  9. LPRINT CHR$(27); "&l6D";
  10. LPRINT CHR$(27); "&l4E";
  11. LPRINT CHR$(27); "&a10L";
  12.  
  13. CLS
  14.  
  15. INPUT "Name of File to Print: "; file$
  16. ON ERROR GOTO BadFile
  17. OPEN file$ FOR INPUT AS #1
  18.  
  19. DoHeader
  20. FirstTime% = False%
  21.  
  22. DO
  23.   LINE INPUT #1, lyne$
  24.   WIDTH "LPT1:", 255
  25.   LPRINT lyne$
  26.   INCR CurrentLine%
  27.   IF CurrentLine% = LinesPerPage% THEN DoHeader
  28. LOOP WHILE NOT EOF(1)
  29.  
  30. CLOSE #1
  31. LPRINT CHR$(27); "E";
  32. END
  33.  
  34. BadFile:
  35.   errnum% = ERR
  36.   SELECT CASE errnum%
  37.     CASE 29
  38.       PRINT "Write Fault.";
  39.     CASE 30
  40.       PRINT "Read Fault.";
  41.     CASE 52
  42.       PRINT "Bad FileName.";
  43.     CASE 53
  44.       PRINT "File Not Found.";
  45.     CASE 68
  46.       PRINT "Device not Available.";
  47.   END SELECT
  48.   SYSTEM
  49.  
  50. SUB DoHeader() STATIC
  51.  
  52. SHARED FirstTime%,CurrentLine%,True%,False%
  53.  
  54. IF FirstTime% = False% THEN
  55.   LPRINT CHR$(12)
  56. ELSE
  57.   pagenum% = 1
  58. END IF
  59.  
  60. LPRINT UCASE$(file$); SPC(10);
  61. LPRINT DATE$; SPC(10);
  62. LPRINT TIME$; SPC(5);
  63. LPRINT SPC(5);
  64. LPRINT "Page "; pagenum%
  65.  
  66. INCR pagenum%
  67. CurrentLine% = 1
  68.  
  69. END SUB